home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Intro_14_bvid.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  829 b   |  29 lines
  1. on mouseUp
  2.   if the videoForWindowsPresent = 1 then
  3.     set the keyDownScript to "whichkey"
  4.     puppetTransition(47, 1, 8)
  5.     set myCD to CheckDrive("colvidp.dxr")
  6.     append(the searchPath, myCD & "\")
  7.     play frame "colsonvideo" of movie "colvidp.dxr"
  8.   else
  9.     alert("Sorry, Video for Windows is not present on this computer. To view the Engine Video, Video for Windows must be installed.")
  10.   end if
  11. end
  12.  
  13. on CheckDrive weirdfile
  14.   repeat with i = 67 to 90
  15.     set drive to numToChar(i)
  16.     set thisPath to string(drive & ":\" & weirdfile)
  17.     set myFile to new(xtra("fileio"))
  18.     openFile(myFile, thisPath, 1)
  19.     if status(myFile) = 0 then
  20.       set myFile to 0
  21.       return drive & ":"
  22.       exit
  23.     end if
  24.   end repeat
  25.   set myFile to 0
  26.   alert("You must have the Colson CD-ROM in the drive to play CD")
  27.   abort()
  28. end
  29.